home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO008.dsk / STARTUP.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  30 lines
  1. 1000  REM -- Apple //e System Utilities for 128k --
  2. 1010 A2C = 1
  3. 1020 M = 80:C$ =  CHR$(18): PRINT  CHR$(4);"PR#3"
  4. 1040  PRINT C$
  5. 1050 VP = 5: GOSUB 5000
  6. 1060 VP = 8:MSG$ = "ProDOS System Utilities": GOSUB 4000
  7. 1070 VP = 10:MSG$ = "For 128k Apple //e": GOSUB 4000
  8. 1080 VP = 12:MSG$ = "Modified by E.L. Eshlo": GOSUB 4000
  9. 1085 VP = 14:MSG$ = "For more information, read the INSTRUCTIONS textfile on this disk.": GOSUB 4000
  10. 1090 VP = 16: GOSUB 5000
  11. 2000  REM  - set up AppleSoft to free up $800 page and load -
  12. 2010 ADR = 2304:HI =  INT((ADR +1)/256):LO = (ADR +1) -(HI *256)
  13. 2020  POKE ADR,0
  14. 2030  POKE 103,LO
  15. 2040  POKE 104,HI
  16. 3000  REM -- Load OBJ files into AUX bank --
  17. 3010  PRINT  CHR$(4);"-SU1.OBJ"
  18. 3020  PRINT  CHR$(4);"-SU2.OBJ"
  19. 3030  PRINT  CHR$(4);"-SU3.OBJ"
  20. 3040  HIMEM: 32000
  21. 3050  PRINT  CHR$(4);"CLOSE"
  22. 3060  PRINT  CHR$(4);"-SU"
  23. 4000  REM - center a string on screen -
  24. 4010 L =  LEN(MSG$):HP =  INT((M -L)/2) +1
  25. 4020  VTAB VP: HTAB HP: PRINT MSG$
  26. 4030  RETURN 
  27. 5000  REM - draw a line -
  28. 5020  VTAB VP: FOR A = 1 TO M/10: PRINT "__________";: NEXT 
  29. 5040  RETURN 
  30. 5050  PRINT